--[[
    编码: JX-33-02
    名称: 指定出库-创建后
    作者：HAN  
    日期：2025-1-29
    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： AfterDataObjCreate

    功能:
          -- 考虑到物料编码和容器编码允许输入，因此需要判断一下物料编码是否有效

    更改记录:
--]]

wms_out = require( "wms_outbound" )
wms_station = require( "wms_station" )

function AfterDataObjCreate ( strLuaDEID ) 
    local nRet, strRetInfo
    local specify_outbound

    nRet, specify_outbound = m3.GetCurEditDataObj( strLuaDEID )
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..specify_outbound ) end 

    local station = lua.Get_StrAttrValue( specify_outbound.station )
    local to_loc_code = lua.Get_StrAttrValue( specify_outbound.to_loc_code )
    if ( to_loc_code == '' ) then
        nRet, to_loc_code = wms_station.Get_Station_Loc( strLuaDEID, station )
        if ( nRet ~= 0 ) then
            lua.Stop( strLuaDEID, to_loc_code )
            return
        end        
    end
    -- 1 指定货品出库
    if ( specify_outbound.type == 2 ) then
        nRet, strRetInfo = wms_out.Create_SOO_ByMaterial( strLuaDEID, station, specify_outbound.so_no, specify_outbound.area_code, specify_outbound.item_code, to_loc_code, "指定出库", "巨沃" )
        if ( nRet ~= 0 ) then
            mobox.stopProgram( strLuaDEID, "创建指定出库作业失败!"..strRetInfo )
            return
        end
    else
        -- 指定容器出库
        local cntr_code = specify_outbound.cntr_code
        -- 判断容器是否存在
        if ( wms_cntr.Exist( strLuaDEID, cntr_code ) == false ) then 
            mobox.stopProgram( strLuaDEID, "容器'"..cntr_code.."'不存在" )
            return             
        end  
                
        -- 创建指定出库作业
        nRet, strRetInfo = wms_out.Create_SOO_ByContainer( strLuaDEID, station, specify_outbound.so_no, cntr_code, to_loc_code, "指定出库", "巨沃" )
        if ( nRet ~= 0 ) then
            mobox.stopProgram( strLuaDEID, "创建指定出库作业失败!"..strRetInfo )
            return
        end
    end

end